home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d16
/
wc15_b.arc
/
README.WMS
< prev
next >
Wrap
Text File
|
1991-03-22
|
845b
|
32 lines
;Read Me macro opens the README.TXT file in an sedit box
STOP
CLEAR
var1$ = "welcome.txt"
DIALOGBOX 44, 20, 250, 178, 21, "WinComm Read Me"
LTEXT 86, 8, 20, 9, "File:"
VTEXT 107, 8, 50, 9, VAR1$
DEFPUSHBUTTON 196, 149, 50, 14, "&Exit"
UPDATEPB 9, 149, 50, 14, "&Welcome"
UPDATEPB 70, 149, 50, 14, "&Updates"
STEXT 9, 25, 236, 113, VAR1$
UPDATEPB 133, 149, 50, 14, "&Version 1.5"
DEND
ENABLECTL(100,0)
again:
DO i = DIALOG? UNTIL(i != 255)
IF(i == 1) HALT
IF(i == 100){
var1$ = "welcome.txt" ENABLECTL(100,0) ENABLECTL(101,1) ENABLECTL(102,1)
}
ELSE IF(i == 101){
var1$ = "updates.txt" ENABLECTL(100,1) ENABLECTL(101,0) ENABLECTL(102,1)
}
ELSE IF(i == 102){
var1$ = "update2.txt" ENABLECTL(100,1) ENABLECTL(101,1) ENABLECTL(102,0)
}
UPDATEDLG(18)
GOTO again
END